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+ 
FACILITY: System Service Macros 


ABSTRACT: 
This module contains some miscellaneous macros used by the system 
services. 

ENVIRONMENT: 

AUTHOR: Various VMS developers, CREATION DATE: 26-Aug-1982 

MODIFIED BY: 
v03-002 at CW Hobbs 30-Apr-1983 


Move $SINPUT and $OUTPUT from STARLET.SDL to Metis file 
as these macros are not suitable for general language 
use. 


v03-001 CwWHO001 CW Hobbs 26-AUG-1982 
Edit STARLET.MAR late STARMISC.MAR as part of the 
conversion to STARLET.SDL. This contains various 
macros invoked by the system service definitions. 


v02-030 Beg ot Kerbey T. Altmann 22-Feb-1982 
d SMOVEADR macro 
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; context. I 


The soho bay macros are used with system service macro definitions 
to generate the correct addressing, or to optimize adjacent 
parameters which are often defaulted. 


PUSH ADDRESS MACRO 


This macro generates a push address instruction with the correct 


e 
the address argument was defaulted, a zero is pushed 
on the stack. 
«MACRO $PUSHADR,ADDR,CONTEXT=L 
IF {DN,0,ADDR 
vee #0 
PUSHA'CONTEXT ADDR 


.ENDM $PUSHADR 


MOVE ADDRESS MACRO 

This macro poneretes a move address instruction with the correct 

context. If the address argument was defaulted, the destination 

is cleared. 

-MACRO $MOVEADR,ADDR,DST,CONTEXT=L 

. iDN,0,ADDR 
CLR* CONTEXT DST 
MOVA'CONTEXT ADDR, DST 


-EN 
-ENDM $MOVEADR 


1 
1 
1 
-4 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
4 
1 
1 
1 
1 
1 
4 
1 


+ 
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; MACRO TO PUSH QUADWORD FOR TWO DEFAULTED VALUE ARGUMENTS 


-MACRO seusnTug A.B 


IF IDN,<#0>,<A> 
lf 1DN,<#0>, <B> 
$$T1 = 1 

ENDC 

-ENDC 

IF NE $$T1 
om (SP) 
PUSHL A 
PUSHL 8B 


-ENDC 
-ENDM $PUSHTWO 


; MACRO TO CHECK Q10 ARGUMENTS FOR POSSIBLE QUAD PUSH. 
; THE FIRST ARG IS A VALUE AND THE SECOND IS AN ADDRESS. 
-MACRO $QIOPUSH VAL,ADR 

$$T1 = 0 

IF 1DN,<#0>,<VAL> 

IF 1DN,<0>,<ADR> 

$$T1 = 1 

~ENDC 

~ENDC 

IF NE $$T1 

CLROQ -(SP) 

-IFF 

PUSHL 

SPUSHADR ADR 

ENDC 


.ENDM SQIOPUSH 


; MACRO TO CHECK FOR QUAD CLEAR IN SASSIGN. FIRST ARGUMENT IS 
7 A QUADWORD ADDRESS, SECOND IS A VALUE. 


-MACRO $ASNPUSH ADRQ,VAL 
$$T1 = 0 


IF IDN,<0>,<ADRQ> 
IF FOR Ne CHM? 


$$T1 = 

.ENDC 

.ENDC 

IF NE $$T1 

CLRQ -(SP) 
IFF 


$PUSHADR ADRQ, CONTEXT=0 
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PUSHL VAL 
ENDC 
.ENDM $ASNPUSH 
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MACRO TO Cee ATE GENERAL ARGUMENT LIST. 
THE FIRST PARAMETER IS THE TOTAL NUMBER OF ARGUMENTS TO GENERATE. 
ANY DEFAULTED ARGUMENTS GENERATE A LONGWORD OF ZERO. 


-MACRO SARGLST LEW 01 P2-P5.P4.P5.P6.PY.PO.P9.PA.PB.PC.PD.= 


$$11<0 
DRESS LEN 

ARP $12,<P1,P2,P3,P4,P5,P6,P7,P8,P9,PA,PB,PC,PD,PE,PF> 
TIF EQ LEN-$$T1 

[MEXIT 

SENDC 
“IF NB $$T2 
“ADDRESS $$T2 
“ADDRESS 0 


-EN 

$$T1=S$$T1+1 

. ENDM 
-ENDM $ARGLST 


MACRO TO GENERATE OFFSET DEFINITION NAMES. THE OFFSETS ARE DEFINED 
WITHIN THE SNAME FORM OF THE MACRO. 


- MACRO wet ee PUNE AoE 


G6S=0 
.IRP  $$T2, <LIST> 
MNAM é : $$T1 


SSARGS=S$SARGS+1 

.ENDM 

MNAME *$_NARGS = $SARGS 
.ENDM SOFFDEF 


2¢¢ 
3; MACRO TO GENERATE SYSTEM BUGCHECK 
¥ .MACRO SBUG CHECK ERROR, , TYPE=CONT 
eIIF IDN <TYPE>,<FATAL> , .ADDRESS <' Tar eeerreets 
lIF eae eet rere <FATAL> , .ADDRESS 
~ENDM $BUG_C 
+ 
SINPUT 
SINPUT Macro 
SINPUT chan ,length ,buffer ,Ciosb] ,Cefn] 
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chan = number of the 2 on haa 1/0 is to be performed 
Length = Length of the input b 

buffer = address of the input ot fer 

iosb = address of quadword 1/0 status block 

efn = event flag to set on completion 


-MACRO = $SINPUT mee LENGTH, 4 R,I 
$Q101NP 


ER, 10SB 
INPUT, CHAN,LENG 
-ENDM = =SINPUT 


SB=0,EFN=#0 
NGTH, “BUFFER, 10SB,EFN 


++ 
SOUTPUT 
SOUTPUT Macro 


SOUTPUT chan, length, buffer, Ciosb], Cefn] 


chan = channel on which 1/0 is directed 
Length = Length of the output buffer 

buffer = address of the output butter 

iosb = address of quadword 1/0 status block 
efn = event flag number to set on completion 


Pe ee Ge Ge Ge Ge Se Ge Se Se Se Se Se Se 


-MACRO $OUTPUT CHAN,LENGTH, BUFFER, 10SB=0,EFN=#0 
ENON $$Q100UTPUT OUTPUT, CHAN, LENGTH, BUFFER, 1OSB,EFN 


had 
+ MACRO TO CONVERT SINPUT CALL TO $Q10W CALL 
MACRO SSQIOINPUT QIOTYPE,QIOCHAN, QJOLENGTH, QIOBUFFER,QIOIOSB,QIOEFN 
$Q10W_S EFN=<Q1]OEFN>, CHAN=<Q10CHAN>,FUNC=#10$_READVBLK, 10SB=<Q1010SB>,- 
P1=<Q]OBUFFER>,P2=<QIOLENGTH> 
.ENDM  $$QIOINPUT 
3tt 
t MACRO TO CONVERT $OUTPUT CALL TO $Q]0W CALL 
MACRO SSQIOOUTPUT QIOTYPE, QIOCHAN, QIOLENGTH, QIOBUFFER,QIOI0SB,QIOEFN 
$Q10W_S EFN=<QIOEFN> CHAN=<QIOCHAN>, FUNC=# O$_WRITEVBLK, 10SB=<Q1010SB>,- 
Pis< Q1OBUFFER>, P2=<QIOLENGTH>,P4=#32 ~ 
.ENDM $$01000TP 


-LIST 
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